home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO038B.dsk / STAT.bas < prev    next >
BASIC Source File  |  2012-02-16  |  11KB  |  263 lines
  1. 100  REM   STAT
  2. 110 V1% = V1% +10:V3% = V3% +10
  3. 115  IF CT = 1  THEN  GOSUB 1400
  4. 116  IF SC = 3  THEN  GOSUB 1500
  5. 120  FOR X = 0 TO 9
  6. 130 L%(X) = 0
  7. 140  NEXT X
  8. 150  FOR X = 1 TO 10
  9. 160  IF PA(X,6) = 1  AND PA(X,1) <.7  THEN L%(0) = L%(0) +1
  10. 190  IF PB(X,6) = 1  AND PB(X,1) <.7  THEN L%(4) = L%(4) +1
  11. 200  NEXT X
  12. 210  TEXT : HOME 
  13. 240  PRINT "           VICTORY   POINTS"
  14. 250  PRINT 
  15. 260  PRINT "   GREEN ARMY:             BLUE ARMY:"
  16. 270  PRINT "         ";V1%;"                 ";V3%
  17. 280  PRINT 
  18. 290  PRINT "          BATTLE     LOSSES"
  19. 300  PRINT 
  20. 320  PRINT "     ";L%(0);"         INFANTRY         ";L%(4)
  21. 330  PRINT 
  22. 340  FOR X = 1 TO 10
  23. 350  IF PA(X,6) = 2  AND PA(X,1) <.7  THEN L%(1) = L%(1) +1
  24. 380  IF PB(X,6) = 2  AND PB(X,1) <.7  THEN L%(5) = L%(5) +1
  25. 390  NEXT X
  26. 400  PRINT "     ";L%(1);"          TANKS           ";L%(5)
  27. 410  PRINT 
  28. 420  FOR X = 1 TO 10
  29. 430  IF PA(X,6) = 3  AND PA(X,1) <.7  THEN L%(2) = L%(2) +1
  30. 460  IF PB(X,6) = 3  AND PB(X,1) <.7  THEN L%(6) = L%(6) +1
  31. 470  NEXT X
  32. 480  PRINT "     ";L%(2);"    PERSONNEL CARRIERS    ";L%(6)
  33. 490  PRINT 
  34. 500  FOR X = 1 TO 10
  35. 510  IF PA(X,6) = 4  AND PA(X,1) <.7  THEN L%(3) = L%(3) +1
  36. 540  IF PB(X,6) = 4  AND PB(X,1) <.7  THEN L%(7) = L%(7) +1
  37. 550  NEXT X
  38. 560  PRINT "     ";L%(3);"         LEADERS          ";L%(7)
  39. 570  PRINT 
  40. 571  FOR X = 1 TO 10
  41. 572  IF PA(X,6) = 5  AND PA(X,1) <.7  THEN L%(8) = L%(8) +1
  42. 576  IF PB(X,6) = 5  AND PB(X,1) <.7  THEN L%(9) = L%(9) +1
  43. 577  NEXT X
  44. 578  PRINT "     ";L%(8);"        ARTILLERY         ";L%(9)
  45. 580  GOSUB 4200: GOSUB 4200
  46. 590 X = L%(0) +L%(1) +L%(2) +L%(3) +L%(8)
  47. 600  IF X = 10  THEN  GOTO 740
  48. 610 X = L%(4) +L%(5) +L%(6) +L%(7) +L%(9)
  49. 620  IF X = 10  THEN  GOTO 810
  50. 630  PRINT 
  51. 640  PRINT "DO YOU WISH TO STORE THE GAME ON THE "
  52. 650  PRINT "DISK FOR FUTURE PLAY ?"
  53. 660  PRINT 
  54. 670  INPUT "(Y OR N)";A$
  55. 680  IF A$ = "Y"  THEN  GOTO 715
  56. 690  IF A$ = "N"  THEN  GOTO 1230
  57. 695  IF A$ = "C"  THEN  GOTO 4300
  58. 696  IF A$ = "V"  THEN 62000
  59. 700  GOTO 670
  60. 715 HR = 0:AR = 0:VR = 0:RR = 0:RV = 0:CR = 0
  61. 720  PRINT D$;"CHAIN SGAME"
  62. 740  REM   GREEN ELIM
  63. 745  GOSUB 4040: REM    SHOW BLUE SURVIVORS
  64. 750  VTAB 24
  65. 760  PRINT "ALL UNITS OF THE GREEN ARMY"
  66. 790  GOTO 850
  67. 810  REM   BLUE ELIM
  68. 815  GOSUB 3910: REM    SHOW GREEN SURVIVORS
  69. 820  VTAB 24
  70. 830  PRINT "ALL UNITS OF THE BLUE ARMY"
  71. 850  PRINT "HAVE BEEN ELIMINATED !"
  72. 855  GOSUB 4200: GOSUB 4200
  73. 860  REM   VP TEST
  74. 870  ON SC GOTO 950,880,980
  75. 880  IF (V1%/V3%) >2  THEN  GOTO 1010
  76. 890  IF (V1%/V3%) >1.5  THEN  GOTO 1060
  77. 900  IF (V1%/V3%) >1  THEN  GOTO 1090
  78. 910  IF (V3%/V1%) >2  THEN  GOTO 1120
  79. 920  IF (V3%/V1%) >1.5  THEN  GOTO 1170
  80. 930  IF (V3%/V1%) >1  THEN  GOTO 1200
  81. 940  GOTO 1260
  82. 950  REM   SC=1
  83. 952  IF (V1%/V3%) >2.1  THEN  GOTO 1010
  84. 954  IF (V1%/V3%) >1.7  THEN  GOTO 1060
  85. 956  IF (V1%/V3%) >1.2  THEN  GOTO 1090
  86. 960  IF (V3%/V1%) >1.7  THEN  GOTO 1120
  87. 962  IF (V3%/V1%)/1.2  THEN  GOTO 1170
  88. 964  IF (V3%/V1%) >1  THEN  GOTO 1200
  89. 970  GOTO 1260
  90. 980  REM   SC=3
  91. 982  IF (V1%/V3%) >1.7  THEN  GOTO 1010
  92. 984  IF (V1%/V3%) >1.2  THEN  GOTO 1060
  93. 986  IF (V1%/V3%) >1  THEN  GOTO 1090
  94. 990  IF (V3%/V1%) >2.1  THEN  GOTO 1120
  95. 992  IF (V3%/V1%) >1.7  THEN  GOTO 1170
  96. 994  IF (V3%/V1%) >1.2  THEN  GOTO 1200
  97. 1000  GOTO 1260
  98. 1010  PRINT 
  99. 1020  PRINT "GREEN ARMY WINS STRATEGIC VICTORY !"
  100. 1030  PRINT : PRINT 
  101. 1040  PRINT "CONGRATULATIONS TO FIRST PLAYER !"
  102. 1045  GOSUB 4200
  103. 1050  GOTO 1260
  104. 1060  PRINT 
  105. 1070  PRINT "GREEN ARMY WINS DECISIVE VICTORY !"
  106. 1080  GOTO 1260
  107. 1090  PRINT 
  108. 1100  PRINT "GREEN ARMY WINS MARGINAL VICTORY !"
  109. 1110  GOTO 1260
  110. 1120  PRINT 
  111. 1130  PRINT "BLUE ARMY WINS STRATEGIC VICTORY !"
  112. 1140  PRINT : PRINT 
  113. 1150  PRINT "CONGRATULATIONS TO SECOND PLAYER !"
  114. 1155  GOSUB 4200
  115. 1160  GOTO 1260
  116. 1170  PRINT 
  117. 1180  PRINT "BLUE ARMY WINS DECISIVE VICTORY !"
  118. 1190  GOTO 1260
  119. 1200  PRINT 
  120. 1210  PRINT "BLUE ARMY WINS MARGINAL VICTORY !"
  121. 1220  GOTO 1260
  122. 1230 GO = 4
  123. 1235  POKE 103,1: POKE 104,24: POKE 6144,0
  124. 1237  IF AUX  THEN  PRINT  CHR$(4);"CHAIN /RAM/PLATOON."
  125. 1240  PRINT D$;"CHAIN PLATOON."
  126. 1260  GOSUB 4200: GOSUB 4200: PRINT : PRINT : PRINT 
  127. 1270  PRINT "DO YOU WISH TO PLAY AGAIN ? (Y OR N)"
  128. 1280  INPUT X$
  129. 1290  IF X$ = "Y"  THEN  GOTO 1335
  130. 1300  IF X$ = "N"  THEN  GOTO 1320
  131. 1310  GOTO 1260
  132. 1320  PRINT "GOODBYE"
  133. 1330  END 
  134. 1335  POKE 103,1: POKE 104,24: POKE 6144,0
  135. 1337  IF AUX  THEN  PRINT  CHR$(4);"CHAIN /RAM/PLATOON."
  136. 1340  PRINT D$;"RUN PLATOON."
  137. 1400  REM   CT
  138. 1410  FOR X = 1 TO 10
  139. 1420  IF PB(X,4) >0  AND PB(X,4) <31  THEN V3% = V3% +(2 *PB(X,6))
  140. 1430  NEXT X
  141. 1440  RETURN 
  142. 1500  REM    SC=3, PL1 ON EAST EDGE
  143. 1510  FOR X = 1 TO 10
  144. 1520  IF PA(X,4) >570  AND PA(X,1) >.7  THEN V1% = V1% +(5 *PA(X,6))
  145. 1530  NEXT X
  146. 1540  RETURN 
  147. 3020  REM   INF
  148. 3030  HCOLOR= F4: REM   HELMET
  149. 3040  HPLOT XC +39,99 TO XC +42,99 TO XC +43,100 TO XC +38,100 TO XC +38,101 TO XC +43,101
  150. 3050  HCOLOR= 3: REM   FACE
  151. 3060  HPLOT XC +39,102 TO XC +42,102 TO XC +42,103 TO XC +39,103 TO XC +40,104 TO XC +41,104
  152. 3070  HCOLOR= F4: REM   SHOULDERS
  153. 3080  HPLOT XC +37,105 TO XC +44,105 TO XC +45,106 TO XC +36,106 TO XC +35,107 TO XC +46,107 TO XC +47,108 TO XC +34,108 TO XC +33,109 TO XC +48,109
  154. 3090  HPLOT XC +48,110 TO XC +38,110: HPLOT XC +35,110 TO XC +32,110: HPLOT XC +33,112 TO XC +34,112 TO XC +34,113 TO XC +37,113: HPLOT XC +44,112 TO XC +46,111 TO XC +44,111
  155. 3100  HPLOT XC +40,116 TO XC +40,119 TO XC +39,121 TO XC +39,116 TO XC +38,123 TO XC +38,113 TO XC +37,113 TO XC +37,129 TO XC +36,129 TO XC +36,119
  156. 3110  HPLOT XC +35,123 TO XC +35,130 TO XC +33,130 TO XC +40,119
  157. 3120  HPLOT XC +41,113 TO XC +41,123 TO XC +42,112 TO XC +42,130 TO XC +43,131 TO XC +43,112 TO XC +44,113 TO XC +44,131 TO XC +47,131 TO XC +45,130 TO XC +45,114
  158. 3130  IF F4 = 6  THEN  RETURN 
  159. 3140  HCOLOR= 0
  160. 3150  HPLOT XC +41,105 TO XC +43,105: HPLOT XC +40,107 TO XC +42,107: HPLOT XC +39,109 TO XC +41,109
  161. 3160  HCOLOR= F4
  162. 3170  RETURN 
  163. 3270  REM   ARM
  164. 3280  IF P >5  THEN E = (P -5) *30 +10:F = 60: GOTO 3540
  165. 3290  HCOLOR= F4
  166. 3300  HPLOT E -6,F -2 TO E +6,F -2: HPLOT E -6,F -1 TO E +7,F -1: HPLOT E -6,F TO E +24,F: HPLOT E -6,F +1 TO E +9,F +1: HPLOT E -6,F +2 TO E +10,F +2
  167. 3310  HPLOT E -1,F +3 TO E +8,F +3: HPLOT E -13,F +4 TO E +22,F +4: HPLOT E -13,F +5 TO E +22,F +5: HPLOT E -13,F +6 TO E +22,F +6: HPLOT E -13,F +7 TO E +22,F +7
  168. 3320  HPLOT E -8,F +9 TO E -7,F +9 TO E -7,F +10 TO E -8,F +10: HPLOT E -1,F +9 TO E,F +9 TO E,F +10 TO E -1,F +10: HPLOT E +10,F +9 TO E +11,F +9 TO E +11,F +10
  169. 3330  HPLOT E +10,F +10: HPLOT E +17,F +9 TO E +18,F +9 TO E +18,F +10 TO E +17,F +10
  170. 3340  IF F4 = 6  THEN 3380
  171. 3350  HCOLOR= 0
  172. 3360  HPLOT E +1,F -1 TO E +2,F -1: HPLOT E +3,F +2 TO E +1,F TO E +3,F: HPLOT E,F +2 TO E +2,F TO E,F
  173. 3370  HPLOT E,F -1: HPLOT E +1,F +2: HPLOT E +1,F
  174. 3380  HCOLOR= 3
  175. 3390  HPLOT E -12,F +8 TO E -9,F +11 TO E +18,F +11 TO E +21,F +8
  176. 3400  RETURN 
  177. 3410  REM   APC
  178. 3420  IF P >5  THEN E = (P -5) *30 +10:F = 60: GOTO 3610
  179. 3430  HCOLOR= F4
  180. 3440  HPLOT E +14,F -2 TO E -5,F -2 TO E -6,F -1 TO E +14,F -1 TO E +14,F TO E -7,F TO E -8,F +1 TO E +14,F +1 TO E +14,F +2 TO E -9,F +2
  181. 3450  HPLOT E -10,F +3 TO E +14,F +3 TO E +14,F +4 TO E -11,F +4 TO E -11,F +5 TO E +15,F +5
  182. 3460  IF F4 = 6  THEN  GOTO 3500
  183. 3470  HCOLOR= 0
  184. 3480  HPLOT E +1,F -2 TO E +2,F -2: HPLOT E -2,F -1 TO E +5,F -1: HPLOT E,F TO E +3,F: HPLOT E -1,F +3 TO E +2,F: HPLOT E +4,F +3 TO E +1,F
  185. 3490  HPLOT E +1,F -1 TO E +1,F +1 TO E +2,F +2
  186. 3500  HCOLOR= 3
  187. 3510  HPLOT E -10,F +6 TO E -8,F +8 TO E +12,F +8 TO E +14,F +6: HPLOT E -7,F +7: HPLOT E -3,F +7: HPLOT E +1,F +7: HPLOT E +5,F +7: HPLOT E +9,F +7
  188. 3520  HPLOT E -2,F -3 TO E,F -3 TO E,F -4 TO E -6,F -4
  189. 3530  RETURN 
  190. 3540  REM   ARM
  191. 3550  HCOLOR= F4
  192. 3560  HPLOT E -2,F -2 TO E +3,F -2: HPLOT E -2,F -1 TO E +14,F -1: HPLOT E -2,F TO E +5,F: HPLOT E,F +1 TO E +6,F +1
  193. 3570  HPLOT E -7,F +2 TO E +11,F +2 TO E +11,F +3 TO E -7,F +3
  194. 3580  HCOLOR= 3
  195. 3590  HPLOT E -5,F +4: HPLOT E +10,F +4: HPLOT E -4,F +5 TO E +9,F +5
  196. 3600  RETURN 
  197. 3610  REM   APC
  198. 3620  HCOLOR= F4
  199. 3630  HPLOT E +2,F -2 TO E +14,F -2 TO E +14,F -1 TO E +1,F -1
  200. 3640  HPLOT E,F TO E +14,F TO E +14,F +1 TO E -1,F +1 TO E -2,F +2 TO E +14,F +2: HPLOT E,F TO E -3,F +4 TO E -2,F +4 TO E -2,F +3
  201. 3650  HCOLOR= 3
  202. 3660  HPLOT E -1,F +3 TO E -1,F +5 TO E,F +6 TO E +12,F +6 TO E +14,F +4 TO E +14,F +3 TO E -1,F +3
  203. 3670  RETURN 
  204. 3680  REM   X
  205. 3690  HCOLOR= F4: REM   DRAW SP
  206. 3700  IF P >5  THEN E = (P -5) *30 +20:F = 64: GOTO 3840
  207. 3710  HPLOT E -17,F -3 TO E -17,F -1 TO E -16,F -1 TO E -16,F -3 TO E -15,F -2 TO E -18,F -2
  208. 3720  HPLOT E -11,F -3 TO E -11,F -1 TO E -10,F -1 TO E -10,F -3 TO E -9,F -2 TO E -12,F -2
  209. 3730  HPLOT E -5,F -3 TO E -5,F -1 TO E -4,F -1 TO E -4,F -3 TO E -3,F -2 TO E -6,F -2
  210. 3740  HPLOT E +1,F -3 TO E +1,F -1 TO E +2,F -1 TO E +2,F -3 TO E +3,F -2 TO E -1,F -2
  211. 3750  HPLOT E +8,F -5 TO E -24,F -5 TO E -24,F -6 TO E +8,F -6 TO E +8,F -7 TO E -23,F -7 TO E -22,F -8 TO E +7,F -8
  212. 3760  HPLOT E +2,F -9 TO E -7,F -9 TO E -7,F -10 TO E +2,F -10 TO E +2,F -11 TO E -5,F -11 TO E -5,F -12 TO E +2,F -12 TO E +2,F -13 TO E -5,F -13
  213. 3770  HCOLOR= 3
  214. 3780  HPLOT E -23,F -4 TO E -17,F TO E +2,F TO E +6,F -4
  215. 3790  HPLOT E -5,F -12 TO E -22,F -20 TO E -5,F -12 TO E -5,F -11 TO E -22,F -19
  216. 3800  IF F4 = 6  THEN  RETURN 
  217. 3810  HCOLOR= 0
  218. 3820  HPLOT E -1,F -12 TO E -1,F -10: HPLOT E -3,F -11 TO E +1,F -11: HPLOT E -2,F -9 TO E,F -11: HPLOT E,F -9 TO E -2,F -11
  219. 3830  RETURN 
  220. 3840  HCOLOR= F4: REM   DIST SP
  221. 3850  HPLOT E -16,F -2 TO E -16,F -1 TO E -15,F -1 TO E -15,F -2: HPLOT E -12,F -2 TO E -12,F -1 TO E -11,F -1 TO E -11,F -2
  222. 3860  HPLOT E -8,F -2 TO E -8,F -1 TO E -7,F -1 TO E -7,F -2: HPLOT E -4,F -2 TO E -4,F -1 TO E -3,F -1 TO E -3,F -2
  223. 3870  HPLOT E -20,F -3 TO E,F -3 TO E -1,F -4 TO E -19,F -4: HPLOT E -3,F -5 TO E -7,F -5 TO E -7,F -6 TO E -3,F -6 TO E -3,F -7 TO E -7,F -7
  224. 3880  HCOLOR= 3
  225. 3890  HPLOT E -19,F -2 TO E -16,F TO E -3,F TO E -1,F -2: HPLOT E -7,F -7 TO E -18,F -11
  226. 3900  RETURN 
  227. 3910  REM   DRAW GREEN SURVIVORS
  228. 3915 XC = 0:E = 0:F = 0:P = 0:TU = 0:B = 0
  229. 3920  HGR 
  230. 3930 F4 = 1
  231. 3940  FOR N = 1 TO 10
  232. 3950  IF PA(N,6) = 1  AND PA(N,1) > = .7  THEN XC = B *20:B = B +1: GOSUB 3020
  233. 3960  IF PA(N,6) = 2  AND PA(N,1) > = .7  THEN E = 30 +(P *40):F = 80:P = P +1: GOSUB 3270
  234. 3970  IF PA(N,6) = 3  AND PA(N,1) > = .7  THEN E = 30 +(P *40):F = 80:P = P +1: GOSUB 3410
  235. 3980  IF PA(N,6) = 4  AND PA(N,1) > = .7  THEN TU = TU +1:XC = 200 -(TU *20): GOSUB 3020
  236. 3990  IF PA(N,6) = 5  AND PA(N,1) > = .7  THEN E = 30 +(P *40) +10:F = 88:P = P +1: GOSUB 3690
  237. 4000  NEXT N
  238. 4030  RETURN 
  239. 4040  REM   DRAW BLUE SURVIVORS
  240. 4045 XC = 0:E = 0:F = 0:P = 0:TU = 0:B = 0
  241. 4050  HGR 
  242. 4060 F4 = 6
  243. 4070  FOR N = 1 TO 10
  244. 4080  IF PB(N,6) = 1  AND PB(N,1) > = .7  THEN XC = B *20:B = B +1: GOSUB 3020
  245. 4090  IF PB(N,6) = 2  AND PB(N,1) > = .7  THEN E = 30 +(P *40):F = 80:P = P +1: GOSUB 3270
  246. 4100  IF PB(N,6) = 3  AND PB(N,1) > = .7  THEN E = 30 +(P *40):F = 80:P = P +1: GOSUB 3410
  247. 4110  IF PB(N,6) = 4  AND PB(N,1) > = .7  THEN TU = TU +1:XC = 200 -(TU *20): GOSUB 3020
  248. 4120  IF PB(N,6) = 5  AND PB(N,1) > = .7  THEN E = 30 +(P *40) +10:F = 88:P = P +1: GOSUB 3690
  249. 4130  NEXT N
  250. 4160  RETURN 
  251. 4200  FOR TM = 1 TO 1500: NEXT TM: RETURN 
  252. 4300  INPUT "CHANGE GREEN OR BLUE UNIT? (G OR B): ";X$
  253. 4340  INPUT "UNIT NUMBER: ";E
  254. 4350  INPUT "CHARACTERISTIC NUMBER: ";F
  255. 4360  INPUT "VALUE: ";X
  256. 4362  IF X$ = "B"  THEN 4400
  257. 4364  IF X$ < >"G"  THEN 4300
  258. 4370 PA(E,F) = X
  259. 4380  IF F = 4  THEN HX%(UX,2) = 0:HX%(X,2) = E
  260. 4390  GOTO 630
  261. 4400 PB(E,F) = X
  262. 4410  IF F = 4  THEN HX%(UX,2) = 0:HX%(X,2) = E +100
  263. 4420  GOTO 630